home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / ch06_med / shcknovl / movies / chapter2.dcr / 00037_go previous page.ls < prev    next >
Encoding:
Text File  |  1996-07-10  |  457 b   |  21 lines
  1. on mouseDown
  2.   set startPos to the locH of sprite (the clickOn + 1)
  3.   repeat with N = 1 to 16
  4.     set the locH of sprite (the clickOn + 1) to startPos - N
  5.     updateStage()
  6.   end repeat
  7.   repeat while the mouseDown
  8.     nothing()
  9.   end repeat
  10.   repeat with N = 1 to 16
  11.     set the locH of sprite (the clickOn + 1) to startPos - 16 + N
  12.     updateStage()
  13.   end repeat
  14.   if rollOver(the clickOn) then
  15.   end if
  16. end
  17.  
  18. on mouseUp
  19.   gotoNetMovie("chapter1.dcr")
  20. end
  21.